home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / SCRAP.M < prev    next >
Encoding:
Text File  |  1989-09-21  |  383 b   |  25 lines
  1. MODULE Scrap;
  2.  
  3. (*
  4.  * Testet Scrap-Funktionen in EasyGEM1
  5.  *)
  6.  
  7. FROM Strings IMPORT String;
  8.  
  9. FROM InOut IMPORT WriteString, Write, WriteLn, Read;
  10.  
  11. IMPORT EasyGEM1;
  12.  
  13. VAR name: String;
  14.     ch: CHAR;
  15.  
  16. BEGIN
  17.   EasyGEM1.MakeScrapName ('TST', name);
  18.   WriteString (name);
  19.   Read (ch);
  20.   IF CAP (ch) = 'C' THEN
  21.     EasyGEM1.ClearScrap;
  22.     Read (ch);
  23.   END
  24. END Scrap.
  25.